home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS2.LHZ / -out of fuel (.txt) < prev    next >
Commodore BASIC  |  1993-12-17  |  1KB  |  42 lines
  1. 1 IFG=0THENG=1:LOAD"FLASHER",8,1
  2. 2 PRINT"[153][147][142]":POKE53281,0:POKE53280,12
  3. 3 W=100
  4. 10 FORA=1105TO1142:POKE54272+A,10:POKEA,160:NEXT
  5. 20 FORA=1142TO1105STEP-1:POKEA,160
  6. 21 FORB=1TOW:NEXT
  7. 25 POKEA,231
  8. 26 FORB=1TOW:NEXT
  9. 30 POKEA,97:READA$:PRINTA$;:READB:IFB=1THENPRINT
  10. 31 FORB=1TOW:NEXT
  11. 35 POKEA,101
  12. 36 FORB=1TOW:NEXT
  13. 40 POKEA,32:READA$:PRINTA$;:READB:IFB=1THENPRINT
  14. 45 NEXT
  15. 50 FORA=0TO450:POKE53281,AAND1:NEXT:POKE53281,0:POKE2,253:SYS49152:FORA=0TO3000
  16. 60 NEXT:PRINT"[147]";:END
  17. 1000 DATA"HELP!",1,I ,0,A,0,M ,0,R,0,U,0,N,0,N,0,I,0,N,0,G ,0,O,0,U,0,T ,0
  18. 1005 DATAO,0,F ,0,F,0,U,0,E,0,L,0,"!",1,"H",0,"E",0,"L",0,"P",0,"!",0
  19. 1010 DATA"H[145]",0,"E[145]",0,"L[145]",0,"P[145]",0,"!",0,"H",0,"E",0,"L",0,"P",0
  20. 1015 DATA"!",0,"H[145]",0,"E[145]",0,"L[145]",0,"P[145]",0,"!",1
  21. 1020 DATA"HELP![145]",1
  22. 1021 DATA"HELP![145]",1
  23. 1022 DATA"HELP![145]",1
  24. 1023 DATA"HELP![145]",1
  25. 1024 DATA"HELP![145]",1
  26. 1025 DATA"HELP![145]",1
  27. 1026 DATA"HELP![145]",1
  28. 1027 DATA"HELP![145]",1
  29. 1028 DATA"HELP![145]",1
  30. 1029 DATA"HELP![145]",1
  31. 1030 DATA"HELP![145]",1
  32. 1031 DATA"HELP![145]",1
  33. 1032 DATA"HELP![145]",1
  34. 1033 DATA"HELP![145]",1
  35. 1034 DATA"HELP![145]",1
  36. 1035 DATA"HELP![145]",1
  37. 1036 DATA"HELP![145]",1
  38. 1037 DATA"HELP![145]",1
  39. 1038 DATA"HELP!",1
  40. 1040 DATAPUTT! ,0,PUTT! ,0,"PUTT!",1,THE ,0,"FUEL[146] ",0,IS ,0,ALMOST ,0,GONE!
  41. 1045 DATA1,,1,H E L P !,1,,,,,,1,POW! ,0,POP! ,0,"BLAM![146]",0
  42.